1 Public Class FrmBarcode
2
3 Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancel.Click
4 Me.Close()
5 End Sub
6
7 Private Sub FrmBarcode_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
8 GroupBox2.Visible = False
9 sqlSTR = "SELECT Item_Barcode as 'Barcode', Item_Name as 'Name', Item_Description as 'Description / Item Number' FROM TBL_Category_Item_File"
10 FillListView(ExecuteSQLQuery(sqlSTR), lstitem, 0)
11 lstbarcode.Items.Clear()
12 End Sub
13
14 Private Sub cmdadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdadd.Click
15 If lstitem.Items.Count > 0 Then
16 lstitem.Focus()
17 lstbarcode.Items.Add(lstitem.FocusedItem.Text)
18 lstbarcode.Items(lstbarcode.Items.Count - 1).SubItems.Add(lstitem.FocusedItem.SubItems(1).Text)
19 lstbarcode.Items(lstbarcode.Items.Count - 1).SubItems.Add(lstitem.FocusedItem.SubItems(2).Text)
20 lstitem.FocusedItem.Remove()
21 lstitem.Refresh()
22 End If
23 End Sub
24
25 Private Sub cmdremove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremove.Click
26 If lstbarcode.Items.Count > 0 Then
27 lstbarcode.Focus()
28 lstitem.Items.Add(lstitem.FocusedItem.Text)
29 lstitem.Items(lstitem.Items.Count - 1).SubItems.Add(lstbarcode.FocusedItem.SubItems(1).Text)
30 lstitem.Items(lstitem.Items.Count - 1).SubItems.Add(lstbarcode.FocusedItem.SubItems(2).Text)
31 lstbarcode.FocusedItem.Remove()
32 lstbarcode.Refresh()
33 End If
34 End Sub
35
36 Private Sub cmdPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrint.Click
37 'GroupBox1.Enabled = True
38 cmdPrint.Enabled = False
39 cmdcancel.Enabled = False
40 GroupBox2.Visible = True
41 End Sub
42
43 Private Sub rbsingle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbsingle.CheckedChanged
44 txtpcs.Enabled = False
45 Label3.Enabled = False
46 End Sub
47
48 Private Sub rbmultiple_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbmultiple.CheckedChanged
49 txtpcs.Enabled = True
50 Label3.Enabled = True
51 End Sub
52
53 Private Sub cmdcancel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancel2.Click
54 cmdPrint.Enabled = True
55 cmdcancel.Enabled = True
56 GroupBox2.Visible = False
57 End Sub
58
59 Private Sub cmdok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdok.Click
60 Dim x, i As Integer
61 Dim cnt As Integer
62 Dim XHOLD As Integer
63 Dim Report As New FrmREPORTS
64 Dim holdI As Integer
65 cnt = 0
66 holdI = 0
67 If lstbarcode.Items.Count > 0 Then
68 sqlSTR = "DELETE FROM TBL_Barcode"
69 ExecuteSQLQuery(sqlSTR)
70 If rbsingle.Checked Then
71 For x = 0 To lstbarcode.Items.Count - 1
72 cnt = cnt + 1
73 If cnt < 4 Then
74 If cnt = 1 Then
75 sqlSTR = "INSERT INTO TBL_Barcode (Barcode1) VALUES ('" & lstbarcode.Items(x).Text & "')"
76 ExecuteSQLQuery(sqlSTR)
77 sqlSTR = "SELECT * FROM TBL_Barcode ORDER BY ID DESC"
78 ExecuteSQLQuery(sqlSTR)
79 XHOLD = sqlDT.Rows(0)("ID")
80 ElseIf cnt = 2 Then
81 sqlSTR = "UPDATE TBL_Barcode SET Barcode2 ='" & lstbarcode.Items(x).Text & "' WHERE ID =" & XHOLD
82 ExecuteSQLQuery(sqlSTR)
83 ElseIf cnt = 3 Then
84 sqlSTR = "UPDATE TBL_Barcode SET Barcode3 ='" & lstbarcode.Items(x).Text & "' WHERE ID =" & XHOLD
85 ExecuteSQLQuery(sqlSTR)
86 End If
87 Else
88 cnt = 1
89 sqlSTR = "INSERT INTO TBL_Barcode (Barcode1) VALUES ('" & lstbarcode.Items(x).Text & "')"
90 ExecuteSQLQuery(sqlSTR)
91 sqlSTR = "SELECT * FROM TBL_Barcode ORDER BY ID DESC"
92 ExecuteSQLQuery(sqlSTR)
93 XHOLD = sqlDT.Rows(0)("ID")
94 End If
95 Next
96 ElseIf rbmultiple.Checked Then
97 cnt = 1
98 For x = 0 To lstbarcode.Items.Count - 1
99 For i = 0 To Int(txtpcs.Text) - 1
100 'MsgBox(i & " counter ")
101 If cnt = 1 Then
102 'MsgBox(" 1 " & lstbarcode.Items(x).Text)
103 sqlSTR = "INSERT INTO TBL_Barcode (Barcode1) VALUES ('" & lstbarcode.Items(x).Text & "')"
104 ExecuteSQLQuery(sqlSTR)
105 sqlSTR = "SELECT * FROM TBL_Barcode ORDER BY ID DESC"
106 ExecuteSQLQuery(sqlSTR)
107 XHOLD = sqlDT.Rows(0)("ID")
108
109 ElseIf cnt = 2 Then
110 'MsgBox(" 2 " & lstbarcode.Items(x).Text)
111 sqlSTR = "UPDATE TBL_Barcode SET Barcode2 ='" & lstbarcode.Items(x).Text & "' WHERE ID =" & XHOLD
112 ExecuteSQLQuery(sqlSTR)
113
114 ElseIf cnt = 3 Then
115 'MsgBox(" 3 " & lstbarcode.Items(x).Text)
116 sqlSTR = "UPDATE TBL_Barcode SET Barcode3 ='" & lstbarcode.Items(x).Text & "' WHERE ID =" & XHOLD
117 ExecuteSQLQuery(sqlSTR)
118 holdI = holdI + 1
119 Else
120 'MsgBox(" 4 " & lstbarcode.Items(x).Text)
121 'MsgBox(cnt & " cnt " & " " & ((cnt - 1) / (holdI * 3)))
122 If ((cnt - 1) / (3)) = 1 Then
123 sqlSTR = "INSERT INTO TBL_Barcode (Barcode1) VALUES ('" & lstbarcode.Items(x).Text & "')"
124 ' MsgBox(lstbarcode.Items(x).Text)
125 ExecuteSQLQuery(sqlSTR)
126 sqlSTR = "SELECT * FROM TBL_Barcode ORDER BY ID DESC"
127 ExecuteSQLQuery(sqlSTR)
128 XHOLD = sqlDT.Rows(0)("ID")
129 cnt = 1
130 End If
131 End If
132 cnt = cnt + 1
133 Next
134 Next
135 End If
136
137 End If
138 cmdPrint.Enabled = True
139 cmdcancel.Enabled = True
140 GroupBox2.Visible = False
141 globalFRM = "frmBarcode"
142 Rpt_SqlStr = "SELECT * FROM TBL_Barcode "
143 Report.Show()
144
145 End Sub
146
147 Private Sub txtpcs_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpcs.TextChanged
148 txtpcs.Text = str_Filter(txtpcs, 48, 57, 0, 0)
149 If txtpcs.Text = "0" Or Int(txtpcs.Text) = 0 Then
150 MsgBox("No. of pcs per Barcode should not less than zero !!", MsgBoxStyle.Exclamation, "Sales and Inventory")
151 cmdok.Enabled = False
152 Else
153 cmdok.Enabled = True
154 End If
155 End Sub
156 End Class